Shareware Extravaganza - Disc 4/Shareware Extravaganza - Over 25,000 Programs (The Ultimate Shareware Company)(Disc 4 of 4)(1993).iso/cad/grperf.zip/GRAPH0.LSP

Text File | 1990-10-05 | 2KB | 2 lines

((LAMBDA(/ Ql#)(SETVAR"cmdecho"0)(SETVAR"blipmode"0)(SETVAR"highlight"0)(SETVAR"ucsicon"0)(SETVAR"expert"4)(COND((SETQ Ql#(SSGET"x"))(COMMAND".erase"Ql#"")))(COMMAND".layer""m""rule""s""rule""off""*"""".insert"(STRCAT"*"Q@#)(GETVAR"viewctr")1.0"")(Q?J)))((LAMBDA()(SETQ Q&#(CDR(ASSOC 10(ENTGET(SSNAME(SSGET"x"(quote ((8 . "EXTMIN"))))0)))))(SETQ Q1#(CDR(ASSOC 10(ENTGET(SSNAME(SSGET"x"(quote ((8 . "EXTMAX"))))0)))))(COMMAND".zoom""window"Q&# Q1#)(SETQ Q##(APPLY(quote APPEND)(MAPCAR(quote (LAMBDA(Q%)(APPEND Q%(LIST(Q?@ Q%)))))(LIST Q$@ Q0@))))(SETQ Q0#(Q?1 Q##))(SETQ Q$#(SSGET"x"(quote ((0 . "POINT")(8 . "CPOINTS")))))(SETQ QL1(MAPCAR(quote (LAMBDA(Q%)(CADR(ASSOC 10(ENTGET Q%)))))(MAPCAR(quote (LAMBDA(Q%)(SSNAME Q$# Q%)))(quote (0 1)))))(SETQ QO#(Q%& QL1))(SETQ Q&1(FIX(APPLY(quote MIN)Q##)))(SETQ Q11(/ QO# Q0#))(PRINC"\n  Generating graph\r")))((LAMBDA(/ Q|# Q%Q)(COND((> 10.0 Q0#)(SETQ Q%#(* Q11(SETQ Q?0 1)))(SETQ Qj0 0)(SETQ Q@0(1+(FIX Q0#))))(T(SETQ Q%#(* Q11(SETQ Q?0(/ Q0# 10.0))))(SETQ Qj0 1)(SETQ Q@0(1+(FIX(/ QO# Q%#))))))(SETVAR"attreq"0)(COMMAND"insert""rule"(Q#Q 10(ENTGET(SSNAME Q$# 1)))1.0"""""array"(ENTLAST)"""r""1"Q@0 Q%#)(SETQ Q|#(SSLENGTH(SETQ QQ0(SSGET"x"(quote ((2 . "rule")))))))(SETQ Ql0(- Q&1 Q?0))(WHILE(SETQ Q%Q(SSNAME QQ0(SETQ Q|#(1- Q|#))))(ENTMOD(QO1(LIST(CONS 1(RTOS(SETQ Ql0(+ Ql0 Q?0))2 Qj0)))(ENTGET(ENTNEXT Q%Q))))(ENTUPD Q%Q)(QL&))))((LAMBDA(/ Q&0 Q%L Q10)(SETQ Q&0(SSGET"x"(quote ((2 . "TITLE"))))Q10(ENTGET(ENTNEXT(SSNAME Q&0 0))))(ENTMOD(QO1(LIST(CONS 1 QQQ))Q10))(ENTUPD(SSNAME Q&0 0))(SETQ Q%L(SSGET"x"(quote ((2 . "TESTHARD"))))Q10(ENTGET(ENTNEXT(SSNAME Q%L 0))))(ENTMOD(QO1(LIST(CONS 1 QLQ))Q10))(ENTUPD(SSNAME Q%L 0))))((LAMBDA(/ Q$Q)(MAPCAR(quote (LAMBDA(Q% Q?L / Q$Q)(QL&)(SETQ Q$Q(SSGET"x"(LIST(quote (0 . "SOLID"))(CONS 8 Q%))))(SETQ Q%Q(SSNAME Q$Q 0))(Q#1 Q%Q Q?L)(SETQ Q$Q(SSGET"x"(LIST(quote (0 . "TEXT"))(CONS 8 Q%))))(ENTMOD(QO1(LIST(CONS 1(RTOS Q?L 2 2)))(ENTGET(SSNAME Q$Q 0))))))Q|1 Q##)(COMMAND".copy"(SSGET"x"(quote ((0 . "SOLID"))))"""0,0"""".erase""p"""".layer""on""*""")(Q?J)(PRINC)))